home *** CD-ROM | disk | FTP | other *** search
/ Stairway to Heaven / Stairway to Heaven.iso / tengoku / cdrom18.dir / 00071_Script_71 < prev    next >
Text File  |  1995-02-20  |  346b  |  14 lines
  1. on enterFrame str
  2.   put "ji01" into str 
  3.   put FileIO(mNew,"?write","data.tex") into myObj
  4.   if objectp(myObj) then
  5.     myObj(mWriteString,str)
  6.     myObj(mDispose)
  7.     --return TRUE
  8.     go to frame 450
  9.   else if myObj <> -43 then
  10.     alert " can't file create " & FileIO(mError,myObj)
  11.   end if 
  12.   --return FALSE
  13.   go to frame 450
  14. end